home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs46.d81 / sound.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  19 lines
  1. 10 POKE56,14:CLR:GOTO2020
  2. 20 PRINT"[147]ENTER NAME OF DATA FILE."
  3. 30 PRINT"(PRESS RETURN TO EXIT.)"
  4. 40 PRINT:INPUTF$:IFF$=""THENPOKE56,160:END
  5. 50 PRINT"[147]SEARCHING FOR ";F$
  6. 60 OPEN8,8,8,F$
  7. 70 FORI=1TO2000:NEXT:PRINT"":SYS3584
  8. 80 PRINT"[147][142]PRESS RETURN FOR SOUND."
  9. 90 PRINT"(PRESS X TO EXIT.)"
  10. 100 GETA$:IFA$="X"THENPOKE56,160:END
  11. 110 IFA$=CHR$(13)THENPOKE155,16:POKE156,239:SYS3695:SYS3728:GOTO80
  12. 120 GOTO100
  13. 2020 PRINT"[147]ONE MOMENT PLEASE..."
  14. 2030 P=PEEK(45)+256*PEEK(46)-1
  15. 2040 IFPEEK(P)THENP=P-1:GOTO2040
  16. 2050 P=P-300
  17. 2060 FORI=.TO300:POKE3584+I,PEEK(P+I):NEXT
  18. 2070 POKE2063,48:GOTO20
  19.